#!/usr/local/bin/perl -w

$num=0;
while($num<4)
{
foreach (0..9)
{
	print;
}
$num++;
}
	print "\n";
while(<>)
{	
	chomp;
	printf "%20s\n",$_;
}
	
	